home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / PHONE.ACG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.8 KB  |  66 lines
  1. * DATE 08/27/84  13:11
  2. * phone.ag
  3. STOR chr(peek (063)) TO dr
  4. SET INDEX TO &dr.:lastname
  5. SET MARGIN TO 10
  6. STOR 'A' TO stletter
  7. @ 17,12 SAY 'Letter of alphabet at which to start report'
  8. @ 17,57 GET stletter PICTURE '!'
  9. READ
  10. STOR 'Z' TO llet
  11. @ 18,12 SAY 'Letter of alphabet at which to end report'
  12. @ 18,57 GET llet PICTURE '!'
  13. READ
  14. FIND &stletter
  15. DO WHIL # = 0
  16.  STOR 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET
  17.  STOR @(stletter,ALPHABET) + 1 TO NEXL
  18.  STOR $(ALPHABET,NEXL,1) TO stletter
  19.  FIND &stletter
  20.  RELE alphabet
  21. ENDD
  22. STOR 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ0' TO ALPHABET
  23. STOR @(llet,ALPHABET) + 1 TO NEXL
  24. STOR $(ALPHABET,NEXL,1) TO llet
  25. RELE alphabet
  26. STOR 0 TO pageno
  27. STOR t TO more
  28. SET MARGIN TO 10
  29. DO WHIL more
  30.  STOR pageno + 1 TO pageno
  31.  STOR 6 TO lineno
  32.  ERAS
  33.  EJEC
  34.  ? '========================== TELEPHONE LIST =========================='
  35.  ? ' '
  36.  ? '         ' + DATE() + '                                            PAGE: ' + str(pageno,2)
  37.  ? ' '
  38.  ? '      NAME                   HOME PHONE         OFFICE PHONE'
  39.  ? ' '
  40.  DO WHIL lineno < 55
  41.   IF .not. eof
  42.    IF $(lastname,1,1) <> llet
  43.     STOR trim(fname)+ ' ' + lastname TO mname
  44.     STOR $(mname,1,23) TO mname
  45.     ? mname+ '      ' + phone + '      ' + ophone
  46.     STOR lineno +1 TO lineno
  47.     SKIP
  48.     IF *
  49.      SKIP
  50.     ENDI
  51.    ELSE
  52.     SKIP
  53.    ENDI $(lastname)
  54.   ELSE
  55.    STOR f TO more
  56.    STOR 60 TO lineno
  57.   ENDI not eof
  58.  ENDD WHILE lineno < 55
  59. ENDD more
  60. EJEC
  61. SET PRINT OFF
  62. SET ALTERNATE OFF
  63. RELE pageno, lineno, mname
  64. STOR t TO more
  65. STOR t TO first
  66.